(Fframe_list): Don't return a tooltip frame.

diff --git a/src/frame.c b/src/frame.c
index 08aa8e4494cc4a7c921be86c54e9c149c4117d13..7c6cd89a1966f7cea8f8808d87ca1f871afcb631 100644 (file)
--- a/src/frame.c
+++ b/src/frame.c
@@ -807,7 +807,11 @@ DEFUN ("frame-list", Fframe_list, Sframe_list,
        "Return a list of all frames.")
   ()
 {
-  return Fcopy_sequence (Vframe_list);
+  Lisp_Object frames;
+  frames = Fcopy_sequence (Vframe_list);
+  if (FRAMEP (tip_frame))
+    frames = Fdelq (tip_frame, frames);
+  return frames;
 }
 
 /* Return the next frame in the frame list after FRAME.